          WEND
            MOUSEEXIT
            VIDEOMODESET VMODE
            END


                                                                         86


          MOUSECURSORDEFAULT

            PROTOTYPE

            SUB MOUSECURSORDEFAULT ()

            INPUT

            no input parameters

            OUTPUT

            no value returned

            USAGE

            MOUSECURSORDEFAULT defines the mouse cursor to be a small
       , K$·ÅÔÑ°XQ)å´”ðöÁÄ´…¤TÙ,Ôª…¤X9Ôô…¤\9ÔUš¶ó`9Ô4aÔd9ÔUTaÔh9ÔtaÔl9ÔU”aÔp9Ô´aÔtÙPTñxÁŒ€·0²‹à³àU´“àµ—à¶›à·£âÔp€§â¸­à‰ ÈÁãøsKíb<$õÝ‰ 	í‰ í‰ I1í‰  Eí‰ $Yí’‰ (mí‰ ,í‰ 0$•í‰  ©í‰ ¤½í‰ I¨Ñí‰ ¬åí‰ °ùí’‰ 4ý‰ ´!ý‰ ¸$5ý‰ ¼Iý‰ À]ý‰ ©8qý‰ <…üèi€ªùP™€ €
ü°Ðƒ@%8@ âè ¼Ñ°ðc ¥*$°¸ð¬ðçÒm ¨õî	Ð@ # æ÷$ƒh$ƒàraÐ… `Š ï€ %€ +Äß  TŒcOŒïƒ ø1<@ÿÿ[$¨€¬M M lú0Ÿ Y¬Ä!%6aÞŠ  á +?ñÿ P<ŒaTTVØi€­ò°`_¤¯%€  ¦ÿPÛ§¯î`‚aù%H®Á¡A%G rù
iwùií`ÏòðÑ€m ü±
]’A åw7° õï	$ úÇ€û&^ `ÿÿ¿$üÿÿ$þÿ$Õÿnk$J-Q1œP‚B—ÿ ¯0 àQ/ ¥4½ œ°§P÷¥4€õ $(¦ ß$@C]’‚÷ À¸_ S €‡¥4=iô„¹<_np@¥45•±Y3¬Q¡°.i>Ì @5+ÁÓ¾Ó$@#Á@®Ë
$Ñ
#@¥£4,p&eö¬_€Q §¥4•Q @; ­_ Q@eÌò@mp!´aÔO°û`P¤ §ÿ€Tø8˜!¬ ¤$«Ó"q¨ÿP¤C€¨àûÀÒ°e T"á<pø% P‘( Ï%pë/O ˆW0€¬bí í B@[ ƒ¬8ƒòæó(	¨õ%(€ ï  T˜p +¢š² 0!äñ(1ñ°´™€DÀD0µ`ÿÿÿ$ ®Œ O@Ï1
a¼Ñj-0 ¤³`@·bèaT1Íô¼Ñäý¬ñ,1”¡Œ9l˜28€`âŒ¨Pý$, N0 ÁO0a× ëó0å£`øŒ·#0ëðÀXÜ1¯ äŒ(± €Û¥"q û1C€£ÇÐ§ÿ
 FT éýŒÀ1€ Y0	 w ý…°$@A`Ëè¬Ô`Ü1Aÿÿ}¿€*5 êS ëëŒ`¬Œa  ë‘¬Œ51¨õê½ô ¬Î ÀQŒ1S¾óŒ9Ði€,ùPU(}€$€ …€`å€`QàšBO$%˜€Ï"$€®€].Â\`%W $ÿÿW0ÿŽƒ O0 ]àGÂ urÊ°œ± Q›£É€ðøs?` X0Ô`@ æW ƒ@¹a  îdq`9?€&+o0æyŽäA uV( 7PÎñ@IdQ¸@´@;€²?€•³C€´ÇÐµK€Ž30üíø ¢Î+]ŽËð 	M”¼å ýy5<!Àß¢ƒ¼3~mp	 $<¾ó9’-2üð @T,Æäa,)P‘À#¬ØQ´S(¬@AŒa ðÑ@™ýñôK‰DÄÁ±ß0Ð¥$Ê-0 Ðˆ*Ó²ed m`Œ=3 K á-10Š=òóýÀœmŒjy ˜eýüÐi¸e²ämà™¶C%€* ˆ*0E tQZ`mŽL P%	øü¦NQùÿ T¨<qtWêc z°€¤ê‡€¦‡€®;À<¿  ¬.ÿ ?<äscŒ) ¡ := 0;
      end;
    end;
  end;
  WaitToGo;
end; { UserLineStylePlay }


procedure SayGoodbye;
{ Say goodbye and then exit the program }
var
  ViewInfo : ViewPortType;
begin
  MainWindow('');
  GetViewSettings(ViewInfo);
  SetTextStyle(TriplexFont, HorizDir, 4);
  SetTextJustify(CenterText, CenterText);
  with ViewInfo do
    OutTextXY((x2-x1) div 2, (y2-y1) div 2, 'That''s all folks!');
  StatusLine('Press any key to quit...');
  repeat until KeyPressed;
end; { SayGoodbye }


PROCEDURE SelectMode;
VAR
	choice1,choice2 	: CHAR;
   xsize,ysize			: WORD;
BEGIN
	(* Let's select a mode *)
	ClrScr;
	WriteLn('VESADEMO:');
	WriteLn('1. 256 colors');
	WriteLn('2. 32768 colors');
	WriteLn('3. 65536 colors');
	WriteLn('4. 16777216 colors');
	WriteLn('Q uit');
	WriteLn;
	Write('Your choice: ');
	REPEAT
		ReadLn(choice1);
      IF choice1 <> '1' THEN BEGIN
      	WriteLn('Sorry !');
         WriteLn('This demo wasn''t written for more as 256 colors !');
         WriteLn('You would only get a limited impression of the Hi-& TrueColor modes...');
         WriteLn('Switching to 256 colors.');
         choice1 := '1';
      END;
	UNTIL choice1 IN ['1'..'4','q'];
	IF choice1 = 'q' THEN Halt;

	WriteLn;
	WriteLn;
	WriteLn('a. 320x200');
	WriteLn('b. 640x480');
	WriteLn('c. 800x600');
	WriteLn('d. 1024x768');
	WriteLn('e. 1280x1024');
	WriteLn('Q uit');
	WriteLn;
	Write('Your choice: ');
	REPEAT
		ReadLn(choice2);
	UNTIL choice2 IN ['a'..'e','q'];
	IF choice2 = 'q' THEN Halt;

	CASE choice2 OF
		'a' : BEGIN
			xsize := 320;
			ysize := 200;
		END;
		'b' : BEGIN
			xsize := 640;
			ysize := 480;
		END;
		'c' : BEGIN
			xsize := 800;
			ysize := 600;
		END;
		'd' : BEGIN
			xsize := 1024;
			ysize := 768;
		END;
		'e' : BEGIN
			xsize := 1280;
			ysize := 1024;
		END;
	END;
	CASE choice1 OF
		'1' : mode := FindVesaMode(xsize,ysize,8);
		'2' : mode := FindVesaMode(xsize,ysize,15);
		'3' : mode := FindVesaMode(xsize,ysize,16);
		'4' : mode := FindVesaMode(xsize,ysize,24);
	END;
	IF mode = 0 THEN BEGIN
		WriteLn('No such mode could be found !');
		WriteLn('Switching to to 320x200.');
		ReadKey;
		mode := V320x200x256;
	END;
END;

begin { program body }
  SelectMode;
  Initialize;
  ReportStatus;

{  AspectRatioPlay; }
  FillEllipsePlay;
  SectorPlay;
  WriteModePlay;

  ColorPlay;
  { PalettePlay only intended to work on these drivers: }
  if (GraphDriver = EGA) or
	  (GraphDriver = EGA64) or
	  (GraphDriver = VGA) then
	 PalettePlay;
  PutPixelPlay;
{  PutImagePlay; }
  RandBarPlay;
  BarPlay;
  Bar3DPlay;
  ArcPlay;
  CirclePlay;
  PiePlay;
  LineToPlay;
  LineRelPlay;
{  LineStylePlay; }
{  UserLineStylePlay; }
  TextDump;
  TextPlay;
  CrtModePlay;
  FillStylePlay;
  FillPatternPlay;
  PolyPlay;
  SayGoodbye;
{  CloseGraph; }
  CloseVesa;
end.
***************************************************
	'* SHOW D2ROTATE (ABOUT THE ORIGIN)
	'****************************************************************ìÒócó*íŠ#^³v/Õ:jÍí0t+l²“"ª"gÀð?%¦ˆä³H×«×½Ã¨U'Õ©õ ÿáV?ÊªujOè‡EZ1ìÞ!ÜB¾ä8º‘]1GlNš¿qÝ²;“$èzE<c¦*bE“#„Ï¤"ïÄLrda™Ì§×a^œ†Î1~)@‰™Më×0Í6D„Fˆª€vÅáÐk‘pçØ)}¦ÿ1w3ÑÏõÖh²¹÷‹a¥[TüHq¦¼DKŽÄY-ìtTÑéÐ§ÇØ.*€I9lè÷{ãçcå$çãáoFrØÐïÅÆÇ;O2þeýLš4^N|Ø«O?ÉøFOz`ÇÇÇ'<>>ã$ãé—6úXgŒ·³øoŒëãGŸd¼ß°?þØÉ_9Lÿõ“üq'‘OßŸn4ÉßÈÜÅ3pç.•Oøú}ö¸üñ'‘O?¡t³!û8á¥ó/¿¹pÅòÙEËVox¸cè‚5ÇÈ§Ó$?û$òéZîsŒð†âpK—›‹áÿXÒÿ9Æ÷\æk´O_ÿ5š”\ó‚ŽÚÑA[Ñ˜ ‹Å‚Nüu16	g,%hcÓÐcDÐV‹ÙR›”K¤R;8î ä¶Ø¢sÑãµ ÀŠxgzPŽM£×yà§+åJ›i+²ƒ3Ò	Í¥ÓŒ^§G²Û ã‚r í‡s %#(»ô?Å%u8ð6+Q))•)Afw÷¹Ø)B&4°†LXV:ë„t@.;5èf¶Žt¿äJ×ÄU8£€Ç‚”œ¸pÉÁôvgÐÎÒ‚öØ¹ÂâI.‡ð^vÑZè€& ÕÚ6¤“6Xá NŠµÎEž¥
kI§ÌÜA+¹Ò‚být‘-Y­«à¥aÍuuŒ€¶àˆvhu¦µS´vŠ—£F;p<d©/FÄdÛ‚T%²Kè–=qþ”I¿¿Ì6S$±öÈENêF–9ÉÚR'¼ ÏíÀ?gÂj²0Í/b·žÄm–‚¶Ú¯˜Ž‰/ú<‚•þ°ÑÇ¶ÃXå:ÒP3é"ÎL‘sí°Ú”S”!»¨*mNœWä€œ´~#»‘‘òRê¢h:…Ý.‘÷¸Ývœ„…d±…ÕÃ=°·ãº$howeg*Î	6—ÜŸ“¸í°™¶qéD>(w@£KîH’¾”£äU
‚šRÉÑWÜŠˆ 2M%¢.²SN™A1—JE¶ºl]²¨>\%À4áOÜœƒ©&ÿˆ/)8vSPß²“ü‘‘ûû¥ŽaôƒÈ4SÖÇP-?ä ¸²N‘*qµUé²÷ ^¤úI.r£R&$Y^È%ŠðBÚ÷Ceat
    Color := RandColor;
    SetColor(Color);
    SetFillStyle(Random(CloseDotFill)+1, Color);
    Bar3D(Random(MaxWidth), Random(MaxHeight),
          Random(MaxWidth), Random(MaxHeight), 0, TopOff);
  until KeyPressed;
  WaitToGo;
end; { RandBarPlay }

procedure ArcPlay;
{ Draw random arcs on the screen }
var
  MaxRadius : word;
  EndAngle : word;
  ArcInfo : ArcCoordsType;
begin
  MainWindow('Arc / GetArcCoords demonstration');
  StatusLine('Esc aborts or press a key');
  MaxRadius := MaxY div 10;
  repeat
    SetColor(RandColor);
    EndAngle := Random(360);
    SetLineStyle(SolidLn, 0, NormWidth);
    Arc(Random(MaxX), Random(MaxY), Random(EndAngle), EndAngle, Random(MaxRadius));
    GetArcCoords(ArcInfo);
    with ArcInfo do
    begin
      Line(X, Y, XStart, YStart);
      Line(X, Y, Xend, Yend);
    end;
  until KeyPressed;
  WaitToGo;
end; { ArcPlay }

procedure PutPixelPlay;
{ Demonstrate the PutPixel and GetPixel commands }
const
  Seed   = 1962; { A seed for the random number generator }
  NumPts = 2000; { The number of pixels plotted }
  Esc    = #27;
var
  I : word;
  X, Y, Color : word;
  XMax, YMax  : integer;
  ViewInfo    : ViewPortType;
begin
  MainWindow('PutPixel / GetPixel demonstration');
  StatusLine('Esc aborts or press a key...');

  GetViewSettings(ViewInfo);
  with ViewInfo do
  begin
    XMax := (x2-x1-1);
    YMax := (y2-y1-1);
  end;

  while not KeyPressed do
  begin
    { Plot random pixels }
    RandSeed := Seed;
    I := 0;
    while (not KeyPressed) and (I < NumPts) do
    begin
      Inc(I);
		PutPixel(Random(XMax)+1, Random(YMax)+1, RandColor);
    end;

    { Erase pixels }
    RandSeed := Seed;
    I := 0;
    while (not KeyPressed) and (I < NumPts) do
    begin
      Inc(I);
      X := Random(XMax)+1;
      Y := Random(YMax)+1;
      Color := GetPixel(X, Y);
		if Color = RandColor then
		  PutPixel(X, Y, 0);
	 end;
  end;
  WaitToGo;
end; { PutPixelPlay }

procedure PutImagePlay;
{ Demonstrate the GetImage and PutImage commands }

const
  r  = 20;
  StartX = 100;
  StartY = 50;

var
  CurPort : ViewPortType;

procedure MoveSaucer(var X, Y : integer; Width, Height : integer);
var
  Step : integer;
begin
  Step := Random(2*r);
  if Odd(Step) then
    Step := -Step;
  X := X + Step;
  Step := Random(r);
  if Odd(Step) then
    Step := -Step;
  Y := Y + Step;

  { Make saucer bounce off viewport walls }
  with CurPort do
  begin
    if (x1 + X + Width - 1 > x2) then
      X := x2-x1 - Width + 1
    else
      if (X < 0) then
        X := 0;
    if (y1 + Y + Height - 1 > y2) then
      Y := y2-y1 - Height + 1
    else
      if (Y < 0) then
        Y := 0;
  end;
end; { MoveSaucer }

var
  Pausetime : word;
  Saucer    : pointer;
  X, Y      : integer;
  ulx, uly  : word;
  lrx, lry  : word;
  Size      : word;
  I         : word;
begin
  ClearDevice;
  FullPort;

  { PaintScreen }
  ClearDevice;
  MainWindow('GetImage / PutImage Demonstration');
  StatusLine('Esc aborts or press a key...');
  GetViewSettings(CurPort);

  { DrawSaucer }
  Ellipse(StartX, StartY, 0, 360, r, (r div 3)+2);
  Ellipse(StartX, StartY-4, 190, 357, r, r div 3);
  Line(StartX+7, StartY-6, StartX+10, StartY-12);
  Circle(StartX+10, StartY-12, 2);
  Line(StartX-7, StartY-6, StartX-10, StartY-12);
  Circle(StartX-10, StartY-12, 2);
  SetFillStyle(SolidFill, MaxColor);
  FloodFill(StartX+1, StartY+4, GetColor);

  { ReadSaucerImage }
  ulx := StartX-(r+1);
  uly := StartY-14;
  lrx := StartX+(r+1);
  lry := StartY+(r div 3)+3;

  Size := ImageSize(ulx, uly, lrx, lry);
  GetMem(Saucer, Size);
  GetImage(ulx, uly, lrx, lry, Saucer^);
{  PutImage(ulx, uly, Saucer^, XORput);               { erase image }

  { Plot some "stars" }
  for I := 1 to 1000 do
	 PutPixel(Random(MaxX), Random(MaxY), RandColor);
  X := MaxX div 2;
  Y := MaxY div 2;
  PauseTime := 70;

  { Move the saucer around }
  repeat
{	 PutImage(X, Y, Saucer^, XORput);                 { draw image }
	 Delay(PauseTime);
{	 PutImage(X, Y, Saucer^, XORput);                 { erase image }
	 MoveSaucer(X, Y, lrx - ulx + 1, lry - uly + 1);  { width/height }
  until KeyPressed;
  FreeMem(Saucer, size);
  WaitToGo;
end; { PutImagePlay }

procedure PolyPlay;
{ Draw random polygons with random fill styles on the screen }
const
  MaxPts = 5;
type
  PolygonType = array[1..MaxPts] of PointType;
var
  Poly : PolygonType;
  I, Color : word;
begin
  MainWindow('FillPoly demonstration');
  StatusLine('Esc aborts or press a key...');
  repeat
    Color := RandColor;
    SetFillStyle(Random(11)+1, Color);
    SetColor(Color);
    for I := 1 to MaxPts do
      with Poly[I] do
      begin
        X := Random(MaxX);
        Y := Random(MaxY);
      end;
    FillPoly(MaxPts, Poly);
  until KeyPressed;
  WaitToGo;
end; { PolyPlay }

procedure FillStylePlay;
{ Display all of the predefined fill styles available }
var
  Style    : word;
  Width    : word;
  Height   : word;
  X, Y     : word;
  I, J     : word;
  ViewInfo : ViewPortType;

procedure DrawBox(X, Y : word);
begin
  SetFillStyle(Style, MaxColor);
  with ViewInfo do
    Bar(X, Y, X+Width, Y+Height);
  Rectangle(X, Y, X+Width, Y+Heig